home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 12 / 64er_Magazin_Sonderheft_12_86-12_1986_Markt__Technik_de_Side_A.d64 / basic-demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  606b  |  27 lines
  1. 10 rem ******************
  2. 20 rem * demoprogramm 2 *
  3. 30 rem ******************
  4. 40 :
  5. 50 :
  6. 60 if a=0 then a=1:load"pull-down-object",8,1:rem routinen nachladen
  7. 70 :
  8. 71 dim a$(20),b$(20)
  9. 72 for i=1 to 20
  10. 73 : a$(i)="dies ist ein test"
  11. 74 : b$(i)="ein weiterer test"
  12. 75 next
  13. 76 :
  14. 100 printchr$(147)
  15. 110 print"'space' schliesst das jeweils oberste window":print
  16. 120 for i=1 to 20
  17. 130 : print"  ueberlagerung mehrerer windows"
  18. 140 next
  19. 150 sys50688+3,5,5,15,10,0,0
  20. 160 sys50688,5,5,15,10,a$(1)
  21. 170 sys50688+3,15,8,8,13,0,1
  22. 180 sys50688,15,8,8,13,b$(1)
  23. 200 geta$:ifa$<>" " then 200
  24. 210 sys50688+3,15,8,8,13,1,1
  25. 220 geta$:ifa$<>" " then 220
  26. 230 sys50688+3,5,5,15,10,1,0
  27.